home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jazlib.arc / JZCLSFIL.C < prev    next >
Text File  |  1988-12-18  |  687b  |  21 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzclsfil.c                                                                  │
  4. │Close a file, given it's "handle".                                          │
  5. │                                                                            │
  6. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950                      │
  7. └────────────────────────────────────────────────────────────────────────────┘
  8. */
  9.  
  10. jzclsfil(fhandle)
  11. int fhandle;
  12. {
  13.   union REGS sreg,dreg;
  14.  
  15.   sreg.x.bx = fhandle;
  16.   sreg.h.ah = 0x3e;
  17.   intdos(&sreg,&dreg);
  18.   if (dreg.x.cflag & 1 == 1) return(-1);
  19.   else return(0);
  20. }
  21.